home *** CD-ROM | disk | FTP | other *** search
/ The Best of MacTutor - S…e Code for Volumes 1 to 5 / The Best of MacTutor - Source Code for Volume 1-5 (Wayzata Technology)(6031)(1990).bin / Source Code / #18 (Mar 87) / Fortran Runge-Kutta / Byte Benchmark.text < prev    next >
Text File  |  1987-01-29  |  138b  |  13 lines
  1. 10 PRINT TIME$
  2. 20 a=2.71828
  3. 30 b=3.14159
  4. 40 c=1
  5. 50 FOR i=1 TO 5000
  6. 60 c=c*a
  7. 70 c=c*b
  8. 80 c=c/a
  9. 90 c=c/b
  10. 100 NEXT i
  11. 110 PRINT TIME$
  12. 120 END
  13.